subroutine t2_half(t2, fact)
use mod_ioff
use mod_orbit
use mod_iop 
use mod_symm
use mod_size
implicit none
real*8, intent(inout) :: fact
real*8, intent(inout) :: t2(*)
!
if(prec==8.and.igpu==0) then 
   call t2_half_d(t2, fact)
elseif(prec==4.and.igpu==0) then 
   call t2_half_s(t2, fact)
elseif(prec==8.and.igpu==1) then 
   call t2_half_dg(t2, fact)
elseif(prec==4.and.igpu==1) then 
   call t2_half_sg(t2, fact)
endif

return
end
